home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / filbuf.zip / BTEST.BAS < prev    next >
BASIC Source File  |  1992-06-13  |  241b  |  11 lines
  1. 'Btest.bas
  2. 'Demonstrates the call of Files and Buffers to determine the amount specified
  3. 'at boot.
  4.  
  5. DECLARE FUNCTION Buffers% ()
  6. DECLARE FUNCTION Nfiles% ()
  7.  
  8. CLS
  9. LOCATE 10, 1: PRINT "Files = "; Nfiles%; " Buffers= "; Buffers%
  10. END
  11.